home *** CD-ROM | disk | FTP | other *** search
/ Extra Heft 12 / Extra Heft12.bin / input64 / 11_86.d64 / midi demo (.txt) < prev    next >
Commodore BASIC  |  1995-08-17  |  3KB  |  72 lines
  1. 5 :SYS4224
  2. 10 GOTO1000
  3. 20 PRINTCHR$(8)CHR$(14)CHR$(144)CHR$(147)
  4. 30 POKE53280,8:POKE53281,8
  5. 40 PRINT"       [205] [201] [196] [201] - [205] O N I T O R"
  6. 50 PRINT"       ======================="
  7. 60 PRINT:PRINT"[196]IESES [208]ROGRAMM DIENT ZUR [213]EBERPRUEFUNG"
  8. 70 PRINT"DES [205][201][196][201]-[201]NTERFACE AUF DER [195]64-[215]ANDLER-"
  9. 80 PRINT"KARTE."
  10. 90 PRINT"[215]ENN ALLES IN [207]RDNUNG IST, WERDEN ALLE"
  11. 100 PRINT"EMPFANGENEN [196]ATEN IN DER [198]ORM"
  12. 110 PRINT:PRINT"[211]TATUS  [196]ATENBYTE1  [196]ATENBYTE2..."
  13. 120 PRINT:PRINT"ALS [200]EX-[218]AHLEN ANGEZEIGT. [204]EDIGLICH DIE"
  14. 130 PRINT"'[211]YSTEM-[210]EALTIME'-[211]TATUSBYTES BEKOMMEN"
  15. 140 PRINT"KEINE EIGENE [218]EILE."
  16. 150 PRINT:PRINT"[196]AS [208]ROGRAMM KANN JEDERZEIT MIT [210][197][212][213][210][206]"
  17. 160 PRINT"ABGEBROCHEN WERDEN."
  18. 170 PRINT"       >>>[215]EITER MIT [212]ASTE<<<";
  19. 180 POKE198,0:WAIT198,1:GETA$
  20. 200 PRINT"[147][211][212]  [196]1  [196]2  [196]3  [196]4  [196]5  [196]6  [196]7  [196]8[146]";
  21. 210 SYS49152
  22. 220 GETA$:IFA$=CHR$(13)THEN1000
  23. 230 GOTO200
  24. 500 PRINTCHR$(8)CHR$(14)CHR$(144)CHR$(147)
  25. 510 POKE53280,8:POKE53281,8
  26. 520 PRINT"       [205] [201] [196] [201] - [203] E Y B O A R D"
  27. 530 PRINT"       ========================="
  28. 540 PRINT:PRINT"[211]IE KOENNEN JETZT DIE [212]ASTATUR [201]HRES"
  29. 550 PRINT"[210]ECHNERS ALS MONOPHONES [205][201][196][201]-'[205]ASTER'-"
  30. 560 PRINT"[203]EYBOARD BENUTZEN."
  31. 570 PRINT""
  32. 580 PRINT"CTRL[146]  [221]  [146]  [146] [221]  [146]  [146]  [146] [221]";
  33. 590 PRINT"  [146]  [146] [221]  [146]  [146]  [146]"
  34. 600 PRINT"      [221]  [146]  [146] [221]  [146]  [146]  [146] [221]";
  35. 610 PRINT"  [146]  [146] [221]  [146]  [146] C[146]"
  36. 620 PRINT"PITCH [221] 2[146] 3[146] [221] 5[146] 6[146] 7[146] [221]";
  37. 630 PRINT" 9[146] 0[146] [221] -[146] \[146] H[146]"
  38. 640 PRINT"      [221]Q[221]W[221]E[221]R[221]T[221]Y[221]U[221]I[221]O[221]P[221]@[221]*[221]^[221]"
  39. 650 PRINT"SHIFT[146] [173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
  40. 660 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  41. 670 PRINT:PRINT"[193]UF WELCHEN [203]ANAL IST [201]HR [211]YNTHESIZER"
  42. 680 PRINT"EINGESTELLT? 1  (+/-/[210][197][212][213][210][206])[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  43. 685 CH=1
  44. 690 POKE204,0
  45. 700 POKE198,0:WAIT198,1:GETA$
  46. 705 IFPEEK(207)THEN705
  47. 710 POKE204,1
  48. 720 IFA$=CHR$(13)THEN780
  49. 730 IFA$="+"THENCH=CH+1:IFCH>16THENCH=1
  50. 740 IFA$="-"THENCH=CH-1:IFCH<1THENCH=16
  51. 750 PRINT"[157]"CH"[157] ";
  52. 760 PRINT"[157][157]";:IFCH>9THENPRINT"[157]";
  53. 770 GOTO690
  54. 780 PRINT:PRINT"[197]NDE MIT [210][197][212][213][210][206]"
  55. 790 POKE780,CH-1:SYS49155
  56. 1000 PRINTCHR$(8)CHR$(14)CHR$(144)CHR$(147)
  57. 1010 POKE53280,8:POKE53281,8
  58. 1020 PRINT"          [205] [201] [196] [201] - [196] E M O"
  59. 1030 PRINT"          ================="
  60. 1040 PRINT:PRINT"[205]IT DIESEN ZWEI [208]ROGRAMMEN KOENNEN [211]IE"
  61. 1050 PRINT"[201]HRE [205][201][196][201]-[211]CHNITTSTELLE AUSPROBIEREN:"
  62. 1060 PRINT:PRINT:PRINT"1.) [196]ER [205][201][196][201]-[205]ONITOR ZUM [212]ESTEN DES"
  63. 1070 PRINT"    [205][201][196][201]-[197]INGANGS."
  64. 1080 PRINT:PRINT"2.) [196]AS [205][201][196][201]-[203]EYBOARD FUER DEN [205][201][196][201]-"
  65. 1090 PRINT"    [193]USGANG."
  66. 1100 PRINT"        [211]IE WUENSCHEN BITTE ?"
  67. 1110 PRINT:PRINT"       ([196]RUECKEN [211]IE 1[146] ODER 2[146])"
  68. 1120 POKE198,0:WAIT198,1:GETA$
  69. 1130 IFA$="1"THEN20
  70. 1140 IFA$="2"THEN500
  71. 1150 GOTO1120
  72.